home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 November / Cd users extra 14.iso / prog / inst / clrtext / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-10-19  |  2.7 KB  |  98 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4125
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   3450
  8.    LinkTopic       =   "Form1"
  9.    PaletteMode     =   1  'UseZOrder
  10.    ScaleHeight     =   4125
  11.    ScaleWidth      =   3450
  12.    Begin VB.TextBox Text8 
  13.       Height          =   285
  14.       Left            =   240
  15.       TabIndex        =   8
  16.       Text            =   "Text1"
  17.       Top             =   2520
  18.       Width           =   3000
  19.    End
  20.    Begin VB.TextBox Text7 
  21.       Height          =   285
  22.       Left            =   240
  23.       TabIndex        =   7
  24.       Text            =   "Text2"
  25.       Top             =   2880
  26.       Width           =   3000
  27.    End
  28.    Begin VB.TextBox Text6 
  29.       Height          =   285
  30.       Left            =   240
  31.       TabIndex        =   6
  32.       Text            =   "Text1"
  33.       Top             =   1800
  34.       Width           =   3000
  35.    End
  36.    Begin VB.TextBox Text5 
  37.       Height          =   285
  38.       Left            =   240
  39.       TabIndex        =   5
  40.       Text            =   "Text2"
  41.       Top             =   2160
  42.       Width           =   3000
  43.    End
  44.    Begin VB.TextBox Text4 
  45.       Height          =   285
  46.       Left            =   240
  47.       TabIndex        =   4
  48.       Text            =   "Text1"
  49.       Top             =   1080
  50.       Width           =   3000
  51.    End
  52.    Begin VB.TextBox Text3 
  53.       Height          =   285
  54.       Left            =   240
  55.       TabIndex        =   3
  56.       Text            =   "Text2"
  57.       Top             =   1440
  58.       Width           =   3000
  59.    End
  60.    Begin VB.TextBox Text2 
  61.       Height          =   285
  62.       Left            =   240
  63.       TabIndex        =   2
  64.       Text            =   "Text2"
  65.       Top             =   720
  66.       Width           =   3000
  67.    End
  68.    Begin VB.CommandButton Command1 
  69.       Caption         =   "Clear Text"
  70.       Height          =   495
  71.       Left            =   240
  72.       TabIndex        =   1
  73.       Top             =   3480
  74.       Width           =   1215
  75.    End
  76.    Begin VB.TextBox Text1 
  77.       Height          =   285
  78.       Left            =   240
  79.       TabIndex        =   0
  80.       Text            =   "Text1"
  81.       Top             =   360
  82.       Width           =   3000
  83.    End
  84. Attribute VB_Name = "Form1"
  85. Attribute VB_GlobalNameSpace = False
  86. Attribute VB_Creatable = False
  87. Attribute VB_PredeclaredId = True
  88. Attribute VB_Exposed = False
  89. Option Explicit
  90. Private Sub Command1_Click()
  91. Dim ctl As Control
  92.     ' Clear all the TextBoxes on the form.
  93.     For Each ctl In Controls
  94.         If TypeOf ctl Is TextBox Then _
  95.            ctl.Text = ""
  96.     Next ctl
  97. End Sub
  98.